home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 019a / tsqed12.zip / BOXTOASC.QMA < prev    next >
Text File  |  1990-11-11  |  3KB  |  54 lines
  1. *
  2. * Convert box drawing characters to 7-bit ascii
  3. * By Timo Salmi, Sun 11-Nov-1990
  4. * To compile apply QMAC BOXTOASC.MAC BOXTOASC.QMA /A- /B
  5. *
  6.  
  7. @5 MacroBegin
  8.    BegFile FindReplace "─" Return "-" Return Return JFalse next01: "r" next01:
  9.    BegFile FindReplace "│" Return "!" Return Return JFalse next02: "r" next02:
  10.    BegFile FindReplace "┌" Return "+" Return Return JFalse next03: "r" next03:
  11.    BegFile FindReplace "┐" Return "+" Return Return JFalse next04: "r" next04:
  12.    BegFile FindReplace "┘" Return "+" Return Return JFalse next05: "r" next05:
  13.    BegFile FindReplace "└" Return "+" Return Return JFalse next06: "r" next06:
  14.    BegFile FindReplace "┬" Return "+" Return Return JFalse next07: "r" next07:
  15.    BegFile FindReplace "┴" Return "+" Return Return JFalse next08: "r" next08:
  16.    BegFile FindReplace "┼" Return "+" Return Return JFalse next09: "r" next09:
  17.    BegFile FindReplace "┤" Return "+" Return Return JFalse next10: "r" next10:
  18.    BegFile FindReplace "├" Return "+" Return Return JFalse next11: "r" next11:
  19.  
  20.    BegFile FindReplace "═" Return "-" Return Return JFalse next12: "r" next12:
  21.    BegFile FindReplace "║" Return "!" Return Return JFalse next13: "r" next13:
  22.    BegFile FindReplace "╔" Return "+" Return Return JFalse next14: "r" next14:
  23.    BegFile FindReplace "╗" Return "+" Return Return JFalse next15: "r" next15:
  24.    BegFile FindReplace "╝" Return "+" Return Return JFalse next16: "r" next16:
  25.    BegFile FindReplace "╦" Return "+" Return Return JFalse next17: "r" next17:
  26.    BegFile FindReplace "╩" Return "+" Return Return JFalse next18: "r" next18:
  27.    BegFile FindReplace "╚" Return "+" Return Return JFalse next19: "r" next19:
  28.    BegFile FindReplace "╬" Return "+" Return Return JFalse next20: "r" next20:
  29.    BegFile FindReplace "╣" Return "+" Return Return JFalse next21: "r" next21:
  30.    BegFile FindReplace "╠" Return "+" Return Return JFalse next22: "r" next22:
  31.    BegFile
  32.  
  33. @6 MacroBegin
  34.    BegFile FindReplace "╒" Return "+" Return Return JFalse next23: "r" next23:
  35.    BegFile FindReplace "╕" Return "+" Return Return JFalse next24: "r" next24:
  36.    BegFile FindReplace "╛" Return "+" Return Return JFalse next25: "r" next25:
  37.    BegFile FindReplace "╘" Return "+" Return Return JFalse next26: "r" next26:
  38.    BegFile FindReplace "╤" Return "+" Return Return JFalse next27: "r" next27:
  39.    BegFile FindReplace "╧" Return "+" Return Return JFalse next28: "r" next28:
  40.    BegFile FindReplace "╪" Return "+" Return Return JFalse next29: "r" next29:
  41.    BegFile FindReplace "╡" Return "+" Return Return JFalse next30: "r" next30:
  42.    BegFile FindReplace "╞" Return "+" Return Return JFalse next31: "r" next31:
  43.  
  44.    BegFile FindReplace "╓" Return "+" Return Return JFalse next32: "r" next32:
  45.    BegFile FindReplace "╖" Return "+" Return Return JFalse next33: "r" next33:
  46.    BegFile FindReplace "╜" Return "+" Return Return JFalse next34: "r" next34:
  47.    BegFile FindReplace "╙" Return "+" Return Return JFalse next35: "r" next35:
  48.    BegFile FindReplace "╥" Return "+" Return Return JFalse next36: "r" next36:
  49.    BegFile FindReplace "╨" Return "+" Return Return JFalse next37: "r" next37:
  50.    BegFile FindReplace "╫" Return "+" Return Return JFalse next38: "r" next38:
  51.    BegFile FindReplace "╢" Return "+" Return Return JFalse next39: "r" next39:
  52.    BegFile FindReplace "╟" Return "+" Return Return JFalse next40: "r" next40:
  53.    BegFile
  54.